/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / thingatpt.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 53 61 74 20 4a 75 |it.edu o|n Sat Ju|
|00000040| 6e 20 31 38 20 31 33 3a | 33 35 3a 31 31 20 31 39 |n 18 13:|35:11 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 74 68 69 6e 67 61 74 |9.0/lisp|/thingat|
|00000080| 70 74 2e 65 6c 0a 3b 3b | 3b 20 65 6d 61 63 73 20 |pt.el.;;|; emacs |
|00000090| 76 65 72 73 69 6f 6e 20 | 31 39 2e 32 35 2e 39 2e |version |19.25.9.|
|000000a0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000b0| 72 73 69 6f 6e 20 46 53 | 46 20 32 2e 31 30 0a 3b |rsion FS|F 2.10.;|
|000000c0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000d0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000e0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|000000f0| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000100| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000110| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000120| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000130| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000140| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000150| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000160| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000170| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000180| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|00000190| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 2f |).    (e|rror "`/|
|000001a0| 67 64 2f 67 6e 75 2f 65 | 6d 61 63 73 2f 31 39 2e |gd/gnu/e|macs/19.|
|000001b0| 30 2f 6c 69 73 70 2f 74 | 68 69 6e 67 61 74 70 74 |0/lisp/t|hingatpt|
|000001c0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|000001d0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 22 29 |d for Em|acs 19")|
|000001e0| 29 0a 0a 28 70 72 6f 76 | 69 64 65 20 28 71 75 6f |)..(prov|ide (quo|
|000001f0| 74 65 20 74 68 69 6e 67 | 61 74 70 74 29 29 0a 28 |te thing|atpt)).(|
|00000200| 64 65 66 61 6c 69 61 73 | 20 27 66 6f 72 77 61 72 |defalias| 'forwar|
|00000210| 64 2d 74 68 69 6e 67 20 | 23 5b 28 54 48 49 4e 47 |d-thing |#[(THING|
|00000220| 20 26 6f 70 74 69 6f 6e | 61 6c 20 4e 29 20 22 08 | &option|al N) ".|
|00000230| c1 4e 86 5c 66 00 c2 c3 | c4 08 5c 22 21 19 c5 09 |.N.\f...|..\"!...|
|00000240| 21 83 1e 00 09 0e 06 86 | 1a 00 c7 21 82 5c 22 00 |!.......|...!.\".|
|00000250| c8 c9 08 5c 22 29 87 22 | 20 5b 54 48 49 4e 47 20 |...\")."| [THING |
|00000260| 66 6f 72 77 61 72 64 2d | 6f 70 20 69 6e 74 65 72 |forward-|op inter|
|00000270| 6e 2d 73 6f 66 74 20 66 | 6f 72 6d 61 74 20 22 66 |n-soft f|ormat "f|
|00000280| 6f 72 77 61 72 64 2d 25 | 73 22 20 66 62 6f 75 6e |orward-%|s" fboun|
|00000290| 64 70 20 4e 20 31 20 65 | 72 72 6f 72 20 22 43 61 |dp N 1 e|rror "Ca|
|000002a0| 6e 27 74 20 64 65 74 65 | 72 6d 69 6e 65 20 68 6f |n't dete|rmine ho|
|000002b0| 77 20 74 6f 20 6d 6f 76 | 65 20 6f 76 65 72 20 25 |w to mov|e over %|
|000002c0| 73 73 22 5d 20 34 20 22 | 5c 0a 4d 6f 76 65 20 66 |ss"] 4 "|\.Move f|
|000002d0| 6f 72 77 61 72 64 20 74 | 6f 20 74 68 65 20 65 6e |orward t|o the en|
|000002e0| 64 20 6f 66 20 74 68 65 | 20 6e 65 78 74 20 54 48 |d of the| next TH|
|000002f0| 49 4e 47 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ING."]).|(defalia|
|00000300| 73 20 27 62 6f 75 6e 64 | 73 2d 6f 66 2d 74 68 69 |s 'bound|s-of-thi|
|00000310| 6e 67 2d 61 74 2d 70 6f | 69 6e 74 20 23 5b 28 54 |ng-at-po|int #[(T|
|00000320| 48 49 4e 47 29 20 22 60 | 18 c1 c2 c3 8f 29 87 22 |HING) "`|.....)."|
|00000330| 20 5b 6f 72 69 67 20 6e | 69 6c 20 28 62 79 74 65 | [orig n|il (byte|
|00000340| 2d 63 6f 64 65 20 22 8a | 08 c1 4e 86 08 00 c2 20 |-code ".|..N.... |
|00000350| 88 60 08 c3 4e 86 12 00 | c4 20 88 60 1d 1e 06 0d |.`..N...|. .`....|
|00000360| 85 34 00 0e 06 85 34 00 | 0d 0e 07 58 85 34 00 0e |.4....4.|...X.4..|
|00000370| 07 0e 06 57 85 34 00 0d | 0e 06 42 2b 87 22 20 5b |...W.4..|..B+." [|
|00000380| 54 48 49 4e 47 20 65 6e | 64 2d 6f 70 20 23 5b 6e |THING en|d-op #[n|
|00000390| 69 6c 20 22 c0 09 c2 5c | 22 87 22 20 5b 66 6f 72 |il "...\|"." [for|
|000003a0| 77 61 72 64 2d 74 68 69 | 6e 67 20 54 48 49 4e 47 |ward-thi|ng THING|
|000003b0| 20 31 5d 20 33 5d 20 62 | 65 67 69 6e 6e 69 6e 67 | 1] 3] b|eginning|
|000003c0| 2d 6f 70 20 23 5b 6e 69 | 6c 20 22 c0 09 c2 5c 22 |-op #[ni|l "...\"|
|000003d0| 87 22 20 5b 66 6f 72 77 | 61 72 64 2d 74 68 69 6e |." [forw|ard-thin|
|000003e0| 67 20 54 48 49 4e 47 20 | 2d 31 5d 20 33 5d 20 62 |g THING |-1] 3] b|
|000003f0| 65 67 20 65 6e 64 20 6f | 72 69 67 5d 20 33 29 20 |eg end o|rig] 3) |
|00000400| 28 28 65 72 72 6f 72 29 | 29 5d 20 33 20 22 5c 0a |((error)|)] 3 "\.|
|00000410| 44 65 74 65 72 6d 69 6e | 65 20 74 68 65 20 73 74 |Determin|e the st|
|00000420| 61 72 74 20 61 6e 64 20 | 65 6e 64 20 62 75 66 66 |art and |end buff|
|00000430| 65 72 20 6c 6f 63 61 74 | 69 6f 6e 73 20 66 6f 72 |er locat|ions for|
|00000440| 20 74 68 65 20 54 48 49 | 4e 47 20 61 74 20 70 6f | the THI|NG at po|
|00000450| 69 6e 74 2c 0a 77 68 65 | 72 65 20 54 48 49 4e 47 |int,.whe|re THING|
|00000460| 20 69 73 20 61 6e 20 65 | 6e 74 69 74 79 20 66 6f | is an e|ntity fo|
|00000470| 72 20 77 68 69 63 68 20 | 74 68 65 72 65 20 69 73 |r which |there is|
|00000480| 20 61 20 65 69 74 68 65 | 72 20 61 20 63 6f 72 72 | a eithe|r a corr|
|00000490| 65 73 70 6f 6e 64 69 6e | 67 0a 66 6f 72 77 61 72 |espondin|g.forwar|
|000004a0| 64 2d 54 48 49 4e 47 20 | 6f 70 65 72 61 74 69 6f |d-THING |operatio|
|000004b0| 6e 2c 20 6f 72 20 63 6f | 72 72 65 73 70 6f 6e 64 |n, or co|rrespond|
|000004c0| 69 6e 67 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |ing begi|nning-of|
|000004d0| 2d 54 48 49 4e 47 20 61 | 6e 64 0a 65 6e 64 2d 6f |-THING a|nd.end-o|
|000004e0| 66 2d 54 48 49 4e 47 20 | 6f 70 65 72 61 74 69 6f |f-THING |operatio|
|000004f0| 6e 73 2c 20 65 67 2e 20 | 27 77 6f 72 64 2c 20 27 |ns, eg. |'word, '|
|00000500| 73 65 6e 74 65 6e 63 65 | 2c 20 27 64 65 66 75 6e |sentence|, 'defun|
|00000510| 2e 0a 20 20 52 65 74 75 | 72 6e 20 61 20 63 6f 6e |..  Retu|rn a con|
|00000520| 73 20 63 65 6c 6c 20 27 | 28 73 74 61 72 74 20 2e |s cell '|(start .|
|00000530| 20 65 6e 64 29 20 67 69 | 76 69 6e 67 20 74 68 65 | end) gi|ving the|
|00000540| 20 73 74 61 72 74 20 61 | 6e 64 20 65 6e 64 20 70 | start a|nd end p|
|00000550| 6f 73 69 74 69 6f 6e 73 | 2e 22 5d 29 0a 28 64 65 |ositions|."]).(de|
|00000560| 66 61 6c 69 61 73 20 27 | 74 68 69 6e 67 2d 61 74 |falias '|thing-at|
|00000570| 2d 70 6f 69 6e 74 20 23 | 5b 28 54 48 49 4e 47 29 |-point #|[(THING)|
|00000580| 20 22 c0 09 21 89 1a 85 | 0d 00 5c 6e 40 5c 6e 41 | "..!...|..\n@\nA|
|00000590| 7b 29 87 22 20 5b 62 6f | 75 6e 64 73 2d 6f 66 2d |{)." [bo|unds-of-|
|000005a0| 74 68 69 6e 67 2d 61 74 | 2d 70 6f 69 6e 74 20 54 |thing-at|-point T|
|000005b0| 48 49 4e 47 20 62 6f 75 | 6e 64 73 5d 20 33 20 22 |HING bou|nds] 3 "|
|000005c0| 5c 0a 52 65 74 75 72 6e | 20 74 68 65 20 54 48 49 |\.Return| the THI|
|000005d0| 4e 47 20 61 74 20 70 6f | 69 6e 74 2c 20 77 68 65 |NG at po|int, whe|
|000005e0| 72 65 20 54 48 49 4e 47 | 20 69 73 20 61 6e 20 65 |re THING| is an e|
|000005f0| 6e 74 69 74 79 20 64 65 | 66 69 6e 65 64 20 62 79 |ntity de|fined by|
|00000600| 0a 62 6f 75 6e 64 73 2d | 6f 66 2d 74 68 69 6e 67 |.bounds-|of-thing|
|00000610| 2d 61 74 2d 70 6f 69 6e | 74 2e 22 5d 29 0a 28 62 |-at-poin|t."]).(b|
|00000620| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00000630| c0 c3 c4 5c 22 88 c0 c5 | c6 5c 22 88 c0 c7 c8 5c |...\"...|.\"....\|
|00000640| 22 88 c9 ca cb c7 23 88 | c9 cc cb cd 23 88 c9 cc |".....#.|....#...|
|00000650| ce cf 23 87 22 20 5b 64 | 65 66 61 6c 69 61 73 20 |..#." [d|efalias |
|00000660| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 74 68 69 |beginnin|g-of-thi|
|00000670| 6e 67 20 23 5b 28 54 48 | 49 4e 47 29 20 22 c0 09 |ng #[(TH|ING) "..|
|00000680| 21 89 1a 84 0d 00 c3 c4 | 09 5c 22 88 5c 6e 40 62 |!.......|.\".\n@b|
|00000690| 29 87 22 20 5b 62 6f 75 | 6e 64 73 2d 6f 66 2d 74 |)." [bou|nds-of-t|
|000006a0| 68 69 6e 67 2d 61 74 2d | 70 6f 69 6e 74 20 54 48 |hing-at-|point TH|
|000006b0| 49 4e 47 20 62 6f 75 6e | 64 73 20 65 72 72 6f 72 |ING boun|ds error|
|000006c0| 20 22 4e 6f 20 25 73 20 | 68 65 72 65 22 5d 20 34 | "No %s |here"] 4|
|000006d0| 5d 20 65 6e 64 2d 6f 66 | 2d 74 68 69 6e 67 20 23 |] end-of|-thing #|
|000006e0| 5b 28 54 48 49 4e 47 29 | 20 22 c0 09 21 89 1a 84 |[(THING)| "..!...|
|000006f0| 0d 00 c3 c4 09 5c 22 88 | 5c 6e 41 62 29 87 22 20 |.....\".|\nAb)." |
|00000700| 5b 62 6f 75 6e 64 73 2d | 6f 66 2d 74 68 69 6e 67 |[bounds-|of-thing|
|00000710| 2d 61 74 2d 70 6f 69 6e | 74 20 54 48 49 4e 47 20 |-at-poin|t THING |
|00000720| 62 6f 75 6e 64 73 20 65 | 72 72 6f 72 20 22 4e 6f |bounds e|rror "No|
|00000730| 20 25 73 20 68 65 72 65 | 22 5d 20 34 5d 20 69 6e | %s here|"] 4] in|
|00000740| 2d 73 74 72 69 6e 67 2d | 70 20 23 5b 6e 69 6c 20 |-string-|p #[nil |
|00000750| 22 60 18 8a c1 20 88 c2 | c3 60 08 5c 22 38 2a 87 |"`... ..|.`.\"8*.|
|00000760| 22 20 5b 6f 72 69 67 20 | 62 65 67 69 6e 6e 69 6e |" [orig |beginnin|
|00000770| 67 2d 6f 66 2d 64 65 66 | 75 6e 20 33 20 70 61 72 |g-of-def|un 3 par|
|00000780| 73 65 2d 70 61 72 74 69 | 61 6c 2d 73 65 78 70 5d |se-parti|al-sexp]|
|00000790| 20 34 5d 20 65 6e 64 2d | 6f 66 2d 73 65 78 70 20 | 4] end-|of-sexp |
|000007a0| 23 5b 6e 69 6c 20 22 60 | 66 7a 89 18 c1 3d 84 15 |#[nil "`|fz...=..|
|000007b0| 00 08 c2 3d 83 1a 00 c3 | 20 83 1a 00 c4 75 82 1d |...=....| ....u..|
|000007c0| 00 c5 c4 21 29 87 22 20 | 5b 63 68 61 72 2d 73 79 |...!)." |[char-sy|
|000007d0| 6e 74 61 78 20 34 31 20 | 33 34 20 69 6e 2d 73 74 |ntax 41 |34 in-st|
|000007e0| 72 69 6e 67 2d 70 20 31 | 20 66 6f 72 77 61 72 64 |ring-p 1| forward|
|000007f0| 2d 73 65 78 70 5d 20 33 | 5d 20 70 75 74 20 73 65 |-sexp] 3|] put se|
|00000800| 78 70 20 65 6e 64 2d 6f | 70 20 6c 69 73 74 20 23 |xp end-o|p list #|
|00000810| 5b 6e 69 6c 20 22 c0 c1 | 21 87 22 20 5b 75 70 2d |[nil "..|!." [up-|
|00000820| 6c 69 73 74 20 31 5d 20 | 32 5d 20 62 65 67 69 6e |list 1] |2] begin|
|00000830| 6e 69 6e 67 2d 6f 70 20 | 62 61 63 6b 77 61 72 64 |ning-op |backward|
|00000840| 2d 73 65 78 70 5d 20 34 | 29 0a 28 64 65 66 76 61 |-sexp] 4|).(defva|
|00000850| 72 20 66 69 6c 65 2d 6e | 61 6d 65 2d 63 68 61 72 |r file-n|ame-char|
|00000860| 73 20 22 7e 2f 41 2d 5a | 61 2d 7a 30 2d 39 2d 2d |s "~/A-Z|a-z0-9--|
|00000870| 2d 5f 2e 24 7b 7d 23 25 | 2c 22 20 22 5c 0a 43 68 |-_.${}#%|," "\.Ch|
|00000880| 61 72 61 63 74 65 72 73 | 20 61 6c 6c 6f 77 61 62 |aracters| allowab|
|00000890| 6c 65 20 69 6e 20 66 69 | 6c 65 6e 61 6d 65 73 2e |le in fi|lenames.|
|000008a0| 22 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |").(byte|-code ".|
|000008b0| c1 c2 c3 23 88 c0 c1 c4 | c5 23 88 c6 c7 c8 5c 22 |...#....|.#....\"|
|000008c0| 88 c0 c9 c2 ca 23 88 c0 | c9 c4 cb 23 88 c6 cc cd |.....#..|...#....|
|000008d0| 5c 22 88 c6 ce cf 5c 22 | 88 c6 d0 d1 5c 22 87 22 |\"....\"|....\"."|
|000008e0| 20 5b 70 75 74 20 66 69 | 6c 65 6e 61 6d 65 20 65 | [put fi|lename e|
|000008f0| 6e 64 2d 6f 70 20 23 5b | 6e 69 6c 20 22 08 c1 77 |nd-op #[|nil "..w|
|00000900| 87 22 20 5b 66 69 6c 65 | 2d 6e 61 6d 65 2d 63 68 |." [file|-name-ch|
|00000910| 61 72 73 20 6e 69 6c 5d | 20 32 5d 20 62 65 67 69 |ars nil]| 2] begi|
|00000920| 6e 6e 69 6e 67 2d 6f 70 | 20 23 5b 6e 69 6c 20 22 |nning-op| #[nil "|
|00000930| 08 65 78 87 22 20 5b 66 | 69 6c 65 2d 6e 61 6d 65 |.ex." [f|ile-name|
|00000940| 2d 63 68 61 72 73 5d 20 | 32 5d 20 64 65 66 61 6c |-chars] |2] defal|
|00000950| 69 61 73 20 66 6f 72 77 | 61 72 64 2d 77 68 69 74 |ias forw|ard-whit|
|00000960| 65 73 70 61 63 65 20 23 | 5b 28 41 52 47 29 20 22 |espace #|[(ARG) "|
|00000970| c0 09 21 83 0d 00 c2 c3 | c4 89 09 24 87 09 c5 57 |..!.....|...$...W|
|00000980| 85 2e 00 c6 c3 c4 89 23 | 83 27 00 c5 94 66 c7 3d |.......#|.'...f.=|
|00000990| 84 27 00 c8 c4 78 88 09 | 54 89 11 82 0e 00 87 22 |.'...x..|T......"|
|000009a0| 20 5b 6e 61 74 6e 75 6d | 70 20 41 52 47 20 72 65 | [natnum|p ARG re|
|000009b0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000009c0| 22 5b 20 09 5d 2b 5c 5c | 7c 5c 6e 22 20 6e 69 6c |"[ .]+\\||\n" nil|
|000009d0| 20 30 20 72 65 2d 73 65 | 61 72 63 68 2d 62 61 63 | 0 re-se|arch-bac|
|000009e0| 6b 77 61 72 64 20 31 30 | 20 22 20 09 22 5d 20 36 |kward 10| " ."] 6|
|000009f0| 20 6e 69 6c 20 22 70 22 | 5d 20 62 75 66 66 65 72 | nil "p"|] buffer|
|00000a00| 20 65 6e 64 2d 6f 66 2d | 62 75 66 66 65 72 20 62 | end-of-|buffer b|
|00000a10| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 62 75 66 66 |eginning|-of-buff|
|00000a20| 65 72 20 66 6f 72 77 61 | 72 64 2d 73 79 6d 62 6f |er forwa|rd-symbo|
|00000a30| 6c 20 23 5b 28 41 52 47 | 29 20 22 c0 09 21 83 0d |l #[(ARG|) "..!..|
|00000a40| 00 c2 c3 c4 89 09 24 87 | 09 c5 57 85 26 00 c6 c3 |......$.|..W.&...|
|00000a50| c4 89 23 83 1f 00 c7 c8 | 21 88 09 54 89 11 82 0e |..#.....|!..T....|
|00000a60| 00 87 22 20 5b 6e 61 74 | 6e 75 6d 70 20 41 52 47 |.." [nat|nump ARG|
|00000a70| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00000a80| 72 64 20 22 5c 5c 28 5c | 5c 73 77 5c 5c 7c 5c 5c |rd "\\(\|\sw\\|\\|
|00000a90| 73 5f 5c 5c 29 2b 22 20 | 6e 69 6c 20 30 20 72 65 |s_\\)+" |nil 0 re|
|00000aa0| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00000ab0| 20 73 6b 69 70 2d 73 79 | 6e 74 61 78 2d 62 61 63 | skip-sy|ntax-bac|
|00000ac0| 6b 77 61 72 64 20 22 77 | 5f 22 5d 20 36 20 6e 69 |kward "w|_"] 6 ni|
|00000ad0| 6c 20 22 70 22 5d 20 77 | 6f 72 64 2d 61 74 2d 70 |l "p"] w|ord-at-p|
|00000ae0| 6f 69 6e 74 20 23 5b 6e | 69 6c 20 22 c0 c1 21 87 |oint #[n|il "..!.|
|00000af0| 22 20 5b 74 68 69 6e 67 | 2d 61 74 2d 70 6f 69 6e |" [thing|-at-poin|
|00000b00| 74 20 77 6f 72 64 5d 20 | 32 5d 20 73 65 6e 74 65 |t word] |2] sente|
|00000b10| 6e 63 65 2d 61 74 2d 70 | 6f 69 6e 74 20 23 5b 6e |nce-at-p|oint #[n|
|00000b20| 69 6c 20 22 c0 c1 21 87 | 22 20 5b 74 68 69 6e 67 |il "..!.|" [thing|
|00000b30| 2d 61 74 2d 70 6f 69 6e | 74 20 73 65 6e 74 65 6e |-at-poin|t senten|
|00000b40| 63 65 5d 20 32 5d 5d 20 | 34 29 0a 28 64 65 66 61 |ce] 2]] |4).(defa|
|00000b50| 6c 69 61 73 20 27 72 65 | 61 64 2d 66 72 6f 6d 2d |lias 're|ad-from-|
|00000b60| 77 68 6f 6c 65 2d 73 74 | 72 69 6e 67 20 23 5b 28 |whole-st|ring #[(|
|00000b70| 53 54 52 29 20 22 c0 09 | 21 1a c3 c4 c5 8f 89 1e |STR) "..|!.......|
|00000b80| 06 83 14 00 c7 c8 21 82 | 16 00 5c 6e 40 2a 87 22 |......!.|..\n@*."|
|00000b90| 20 5b 72 65 61 64 2d 66 | 72 6f 6d 2d 73 74 72 69 | [read-f|rom-stri|
|00000ba0| 6e 67 20 53 54 52 20 72 | 65 61 64 2d 64 61 74 61 |ng STR r|ead-data|
|00000bb0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000bc0| 22 c0 09 5c 6e 41 c3 4f | 21 88 c4 87 22 20 5b 72 |"..\nA.O|!..." [r|
|00000bd0| 65 61 64 2d 66 72 6f 6d | 2d 73 74 72 69 6e 67 20 |ead-from|-string |
|00000be0| 53 54 52 20 72 65 61 64 | 2d 64 61 74 61 20 6e 69 |STR read|-data ni|
|00000bf0| 6c 20 74 5d 20 34 29 20 | 28 28 65 6e 64 2d 6f 66 |l t] 4) |((end-of|
|00000c00| 2d 66 69 6c 65 29 29 20 | 6d 6f 72 65 2d 6c 65 66 |-file)) |more-lef|
|00000c10| 74 20 65 72 72 6f 72 20 | 22 43 61 6e 27 74 20 72 |t error |"Can't r|
|00000c20| 65 61 64 20 77 68 6f 6c | 65 20 73 74 72 69 6e 67 |ead whol|e string|
|00000c30| 22 5d 20 34 20 22 5c 0a | 52 65 61 64 20 61 20 6c |"] 4 "\.|Read a l|
|00000c40| 69 73 70 20 65 78 70 72 | 65 73 73 69 6f 6e 20 66 |isp expr|ession f|
|00000c50| 72 6f 6d 20 53 54 52 2c | 20 73 69 67 6e 61 6c 6c |rom STR,| signall|
|00000c60| 69 6e 67 20 61 6e 20 65 | 72 72 6f 72 20 69 66 20 |ing an e|rror if |
|00000c70| 74 68 65 20 65 6e 74 69 | 72 65 20 73 74 72 69 6e |the enti|re strin|
|00000c80| 67 0a 77 61 73 20 6e 6f | 74 20 75 73 65 64 2e 22 |g.was no|t used."|
|00000c90| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00000ca0| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 88 c0 c5 c6 5c 22 |..\"....|\"....\"|
|00000cb0| 88 c0 c7 c8 5c 22 88 c0 | c9 ca 5c 22 87 22 20 5b |....\"..|..\"." [|
|00000cc0| 64 65 66 61 6c 69 61 73 | 20 66 6f 72 6d 2d 61 74 |defalias| form-at|
|00000cd0| 2d 70 6f 69 6e 74 20 23 | 5b 28 26 6f 70 74 69 6f |-point #|[(&optio|
|00000ce0| 6e 61 6c 20 54 48 49 4e | 47 20 50 52 45 44 29 20 |nal THIN|G PRED) |
|00000cf0| 22 c0 c1 c2 8f 1b 5c 66 | 83 0f 00 5c 66 0b 21 85 |".....\f|...\f.!.|
|00000d00| 10 00 0b 29 87 22 20 5b | 6e 69 6c 20 28 62 79 74 |...)." [|nil (byt|
|00000d10| 65 2d 63 6f 64 65 20 22 | c0 c1 5c 6e 86 07 00 c3 |e-code "|..\n....|
|00000d20| 21 21 87 22 20 5b 72 65 | 61 64 2d 66 72 6f 6d 2d |!!." [re|ad-from-|
|00000d30| 77 68 6f 6c 65 2d 73 74 | 72 69 6e 67 20 74 68 69 |whole-st|ring thi|
|00000d40| 6e 67 2d 61 74 2d 70 6f | 69 6e 74 20 54 48 49 4e |ng-at-po|int THIN|
|00000d50| 47 20 73 65 78 70 5d 20 | 33 29 20 28 28 65 72 72 |G sexp] |3) ((err|
|00000d60| 6f 72 29 29 20 73 65 78 | 70 20 50 52 45 44 5d 20 |or)) sex|p PRED] |
|00000d70| 33 5d 20 73 65 78 70 2d | 61 74 2d 70 6f 69 6e 74 |3] sexp-|at-point|
|00000d80| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 66 | #[nil "|..!." [f|
|00000d90| 6f 72 6d 2d 61 74 2d 70 | 6f 69 6e 74 20 73 65 78 |orm-at-p|oint sex|
|00000da0| 70 5d 20 32 5d 20 73 79 | 6d 62 6f 6c 2d 61 74 2d |p] 2] sy|mbol-at-|
|00000db0| 70 6f 69 6e 74 20 23 5b | 6e 69 6c 20 22 c0 c1 c2 |point #[|nil "...|
|00000dc0| 5c 22 87 22 20 5b 66 6f | 72 6d 2d 61 74 2d 70 6f |\"." [fo|rm-at-po|
|00000dd0| 69 6e 74 20 73 65 78 70 | 20 73 79 6d 62 6f 6c 70 |int sexp| symbolp|
|00000de0| 5d 20 33 5d 20 6e 75 6d | 62 65 72 2d 61 74 2d 70 |] 3] num|ber-at-p|
|00000df0| 6f 69 6e 74 20 23 5b 6e | 69 6c 20 22 c0 c1 c2 5c |oint #[n|il "...\|
|00000e00| 22 87 22 20 5b 66 6f 72 | 6d 2d 61 74 2d 70 6f 69 |"." [for|m-at-poi|
|00000e10| 6e 74 20 73 65 78 70 20 | 6e 75 6d 62 65 72 70 5d |nt sexp |numberp]|
|00000e20| 20 33 5d 20 6c 69 73 74 | 2d 61 74 2d 70 6f 69 6e | 3] list|-at-poin|
|00000e30| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 5c 22 87 22 |t #[nil |"...\"."|
|00000e40| 20 5b 66 6f 72 6d 2d 61 | 74 2d 70 6f 69 6e 74 20 | [form-a|t-point |
|00000e50| 6c 69 73 74 20 6c 69 73 | 74 70 5d 20 33 5d 5d 20 |list lis|tp] 3]] |
|00000e60| 33 29 0a                |                         |3).     |        |
+--------+-------------------------+-------------------------+--------+--------+